home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / giveyo1a / main.frm < prev   
Text File  |  1999-08-01  |  6KB  |  210 lines
  1. VERSION 5.00
  2. Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "hitter by anti"
  6.    ClientHeight    =   855
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3975
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   855
  14.    ScaleWidth      =   3975
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.TextBox Text3 
  18.       Height          =   285
  19.       Left            =   3120
  20.       TabIndex        =   5
  21.       Text            =   "0"
  22.       Top             =   480
  23.       Visible         =   0   'False
  24.       Width           =   735
  25.    End
  26.    Begin VB.TextBox Text2 
  27.       Height          =   285
  28.       Left            =   2280
  29.       TabIndex        =   4
  30.       Text            =   "0"
  31.       Top             =   480
  32.       Width           =   735
  33.    End
  34.    Begin VB.CommandButton Command1 
  35.       Caption         =   "begin"
  36.       BeginProperty Font 
  37.          Name            =   "Arial"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   255
  46.       Left            =   3120
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   735
  50.    End
  51.    Begin VB.TextBox Text1 
  52.       BeginProperty Font 
  53.          Name            =   "Arial"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   285
  62.       Left            =   120
  63.       TabIndex        =   0
  64.       Text            =   "http://www.teamcore.net"
  65.       Top             =   480
  66.       Width           =   2055
  67.    End
  68.    Begin InetCtlsObjects.Inet Inet1 
  69.       Left            =   -360
  70.       Top             =   -240
  71.       _ExtentX        =   1005
  72.       _ExtentY        =   1005
  73.    End
  74.    Begin VB.Line Line8 
  75.       X1              =   3960
  76.       X2              =   3960
  77.       Y1              =   0
  78.       Y2              =   2160
  79.    End
  80.    Begin VB.Label Label2 
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "amount"
  83.       Height          =   255
  84.       Left            =   2400
  85.       TabIndex        =   3
  86.       Top             =   135
  87.       Width           =   615
  88.    End
  89.    Begin VB.Line Line12 
  90.       BorderColor     =   &H00FFFFFF&
  91.       X1              =   3000
  92.       X2              =   3000
  93.       Y1              =   360
  94.       Y2              =   120
  95.    End
  96.    Begin VB.Line Line11 
  97.       X1              =   2280
  98.       X2              =   3000
  99.       Y1              =   120
  100.       Y2              =   120
  101.    End
  102.    Begin VB.Line Line10 
  103.       BorderColor     =   &H00FFFFFF&
  104.       X1              =   3000
  105.       X2              =   2280
  106.       Y1              =   360
  107.       Y2              =   360
  108.    End
  109.    Begin VB.Line Line9 
  110.       X1              =   2280
  111.       X2              =   2280
  112.       Y1              =   120
  113.       Y2              =   360
  114.    End
  115.    Begin VB.Label Label1 
  116.       BackStyle       =   0  'Transparent
  117.       Caption         =   "website to hit"
  118.       BeginProperty Font 
  119.          Name            =   "Arial"
  120.          Size            =   8.25
  121.          Charset         =   0
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   255
  128.       Left            =   240
  129.       TabIndex        =   2
  130.       Top             =   135
  131.       Width           =   1935
  132.    End
  133.    Begin VB.Line Line7 
  134.       BorderColor     =   &H00FFFFFF&
  135.       X1              =   2160
  136.       X2              =   2160
  137.       Y1              =   360
  138.       Y2              =   120
  139.    End
  140.    Begin VB.Line Line6 
  141.       X1              =   120
  142.       X2              =   2160
  143.       Y1              =   120
  144.       Y2              =   120
  145.    End
  146.    Begin VB.Line Line5 
  147.       BorderColor     =   &H00FFFFFF&
  148.       X1              =   2160
  149.       X2              =   120
  150.       Y1              =   360
  151.       Y2              =   360
  152.    End
  153.    Begin VB.Line Line4 
  154.       X1              =   120
  155.       X2              =   120
  156.       Y1              =   120
  157.       Y2              =   360
  158.    End
  159.    Begin VB.Line Line3 
  160.       X1              =   0
  161.       X2              =   4200
  162.       Y1              =   840
  163.       Y2              =   840
  164.    End
  165.    Begin VB.Line Line2 
  166.       BorderColor     =   &H00FFFFFF&
  167.       X1              =   4200
  168.       X2              =   0
  169.       Y1              =   0
  170.       Y2              =   0
  171.    End
  172.    Begin VB.Line Line1 
  173.       BorderColor     =   &H00FFFFFF&
  174.       X1              =   0
  175.       X2              =   0
  176.       Y1              =   0
  177.       Y2              =   2160
  178.    End
  179. End
  180. Attribute VB_Name = "Form1"
  181. Attribute VB_GlobalNameSpace = False
  182. Attribute VB_Creatable = False
  183. Attribute VB_PredeclaredId = True
  184. Attribute VB_Exposed = False
  185. Private Stopper&
  186. Private Sub Command1_Click()
  187. On Error GoTo ErrorHandler
  188. If Command1.Caption = "begin" Then
  189.     If IsNumeric(Text2.Text) = False Then MsgBox "please enter a valid amount!", vbExclamation, "hitter by anti": Text2.Text = "0": Exit Sub
  190.     Command1.Caption = "stop"
  191.     Text3.Visible = True
  192.     For a = 1 To Text2.Text
  193.         If Stopper& = 1 Then Exit Sub
  194.         Do While Inet1.StillExecuting
  195.             DoEvents
  196.         Loop
  197.         Inet1.Execute Text1.Text, "GET " & Text1.Text
  198.         Text3.Text = Text3.Text + 1
  199.     Next a
  200. Else
  201.     Stopper& = 1
  202.     Command1.Caption = "begin"
  203.     Text3.Visible = False
  204. End If
  205. Exit Sub
  206. ErrorHandler:
  207. MsgBox "an error has occured, possibly because the website may not exist. please try another website, or just try again.", vbInformation, "hitter by anti"
  208. Exit Sub
  209. End Sub
  210.